home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Games Collection 1 / software vault.zip / software vault / CDR10 / SPX20.ZIP / SPX_INT.ZIP / SPX_OBJ.INT < prev    next >
Text File  |  1993-09-16  |  2KB  |  52 lines
  1. Unit spx_obj;
  2.  
  3. {$O+,X+ }
  4. { SPX Library Version 2.0  Copyright 1993 Scott D. Ramsay }
  5.  
  6. Interface
  7.  
  8. type
  9.   objmode = (dNothing,dDraw,dErase,dUpdate,dCalc);
  10.   plist   = ^tlist;
  11.   PObjs   = ^TObjs;
  12.   TObjs   = object
  13.               powner           : plist;
  14.               killed,cankill,
  15.               overshow         : boolean;
  16.               id               : integer;
  17.               constructor init;
  18.               procedure drawitemobject;virtual;
  19.               procedure calcitemobject;virtual;
  20.               procedure eraseitemobject;virtual;
  21.               procedure updateitemobject;virtual;
  22.               function checkhit(hx,hy:integer;item:pobjs):boolean;virtual;
  23.               destructor done; virtual;
  24.             end;
  25.   tlist = record
  26.             item      : pobjs;
  27.             prev,next : plist;
  28.           end;
  29.   padd  = ^tadd;
  30.   tadd  = record
  31.             ta    : plist;
  32.             front : boolean;
  33.             next  : padd;
  34.           end;
  35.   pkill = ^tkill;
  36.   tkill = record
  37.             tk   : plist;
  38.             next : pkill;
  39.           end;
  40.  
  41. procedure addp(var nkbeg,nkend,p:plist); { same as addend: for compatibility }
  42. procedure addbeg(var nkbeg,nkend,p:plist);
  43. procedure addend(var nkbeg,nkend,p:plist);
  44. procedure deletep(var nkbeg,nkend,p:plist);
  45. procedure add2add_list(var add:padd;i:plist;front:boolean);
  46. procedure cleanadd_list(var add:padd;var nkbeg,nkend:plist);
  47. procedure add2kill_list(var kill:pkill;i:plist);
  48. procedure cleankill_list(var kill:pkill;var nkbeg,nkend:plist);
  49. procedure clean_plist(var nkbeg,nkend:plist);
  50. procedure doallitems(head:plist;m:objmode);
  51.  
  52.